home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
xsizehints.t
< prev
next >
Wrap
Text File
|
1990-06-01
|
2KB
|
43 lines
(herald xsizehints (env tsys (xlib interface)))
(DEFINE (MAKE-XSIZEHINTS) (CONS 'XSIZEHINTSP (MAKE-BYTEV 60)))
(DEFINE (XSIZEHINTS-FLAGS X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 0))
(DEFINE (XSIZEHINTS-FLAGS! X Y) (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 0 Y))
(DEFINE (XSIZEHINTS-X X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 4))
(DEFINE (XSIZEHINTS-X! X Y) (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 4 Y))
(DEFINE (XSIZEHINTS-Y X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 8))
(DEFINE (XSIZEHINTS-Y! X Y) (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 8 Y))
(DEFINE (XSIZEHINTS-WIDTH X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 12))
(DEFINE (XSIZEHINTS-WIDTH! X Y) (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 12 Y))
(DEFINE (XSIZEHINTS-HEIGHT X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 16))
(DEFINE (XSIZEHINTS-HEIGHT! X Y) (SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 16 Y))
(DEFINE (XSIZEHINTS-MIN_WIDTH X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 20))
(DEFINE (XSIZEHINTS-MIN_WIDTH! X Y)
(SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 20 Y))
(DEFINE (XSIZEHINTS-MIN_HEIGHT X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 24))
(DEFINE (XSIZEHINTS-MIN_HEIGHT! X Y)
(SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 24 Y))
(DEFINE (XSIZEHINTS-MAX_WIDTH X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 28))
(DEFINE (XSIZEHINTS-MAX_WIDTH! X Y)
(SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 28 Y))
(DEFINE (XSIZEHINTS-MAX_HEIGHT X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 32))
(DEFINE (XSIZEHINTS-MAX_HEIGHT! X Y)
(SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 32 Y))
(DEFINE (XSIZEHINTS-WIDTH_INC X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 36))
(DEFINE (XSIZEHINTS-WIDTH_INC! X Y)
(SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 36 Y))
(DEFINE (XSIZEHINTS-HEIGHT_INC X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 40))
(DEFINE (XSIZEHINTS-HEIGHT_INC! X Y)
(SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 40 Y))
(DEFINE (XSIZEHINTS-MIN_ASPECT-X X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 44))
(DEFINE (XSIZEHINTS-MIN_ASPECT-X! X Y)
(SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 44 Y))
(DEFINE (XSIZEHINTS-MIN_ASPECT-Y X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 48))
(DEFINE (XSIZEHINTS-MIN_ASPECT-Y! X Y)
(SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 48 Y))
(DEFINE (XSIZEHINTS-MAX_ASPECT-X X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 52))
(DEFINE (XSIZEHINTS-MAX_ASPECT-X! X Y)
(SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 52 Y))
(DEFINE (XSIZEHINTS-MAX_ASPECT-Y X) (MREF-INTEGER (CHK-XSIZEHINTSP X) 56))
(DEFINE (XSIZEHINTS-MAX_ASPECT-Y! X Y)
(SET-MREF-INTEGER! (CHK-XSIZEHINTSP X) 56 Y))